<?php
/**
 * Smarty plugin
 * @package Smarty
 * @subpackage plugins
 */

/**
 * Smarty debug_print_var modifier plugin
 *
 * Type:     modifier<br>
 * Name:     debug_print_var<br>
 * Purpose:  formats variable contents for display in the console
 * @link http://smarty.php.net/manual/en/language.modifier.debug.print.var.php
 * debug_print_var (Smarty online manual)
 * @author   Monte Ohrt <monte at ohrt dot com>
 * @param array|object
 * @param integer
 * @param integer
 * @return string
 */
function smarty_modifier_debug_print_var($var, $depth = 0, $length = 40) {
	$_replace = array ("\n" => '<i>\n</i>', "\r" => '<i>\r</i>', "\t" => '<i>\t</i>' );
	
	switch (gettype ( $var )) {
		case 'array' :
			$results = '<b>Array (' . count ( $var ) . ')</b>';
			foreach ( $var as $curr_key => $curr_val ) {
				$results .= '<br>' . str_repeat ( '&nbsp;', $depth * 2 ) . '<b>' . strtr ( $curr_key, $_replace ) . '</b> =&gt; ' . smarty_modifier_debug_print_var ( $curr_val, ++ $depth, $length );
				$depth --;
			}
			break;
		case 'object' :
			$object_vars = get_object_vars ( $var );
			$results = '<b>' . get_class ( $var ) . ' Object (' . count ( $object_vars ) . ')</b>';
			foreach ( $object_vars as $curr_key => $curr_val ) {
				$results .= '<br>' . str_repeat ( '&nbsp;', $depth * 2 ) . '<b> -&gt;' . strtr ( $curr_key, $_replace ) . '</b> = ' . smarty_modifier_debug_print_var ( $curr_val, ++ $depth, $length );
				$depth --;
			}
			break;
		case 'boolean' :
		case 'NULL' :
		case 'resource' :
			if (true === $var) {
				$results = 'true';
			} elseif (false === $var) {
				$results = 'false';
			} elseif (null === $var) {
				$results = 'null';
			} else {
				$results = htmlspecialchars ( ( string ) $var );
			}
			$results = '<i>' . $results . '</i>';
			break;
		case 'integer' :
		case 'float' :
			$results = htmlspecialchars ( ( string ) $var );
			break;
		case 'string' :
			$results = strtr ( $var, $_replace );
			if (strlen ( $var ) > $length) {
				$results = substr ( $var, 0, $length - 3 ) . '...';
			}
			$results = htmlspecialchars ( '"' . $results . '"' );
			break;
		case 'unknown type' :
		default :
			$results = strtr ( ( string ) $var, $_replace );
			if (strlen ( $results ) > $length) {
				$results = substr ( $results, 0, $length - 3 ) . '...';
			}
			$results = htmlspecialchars ( $results );
	}
	
	return $results;
}

/* vim: set expandtab: */

?>
